-- background: 2646 from stack: in.0
-- bmap block id: 2104
-- flags: 0000
-- background id: 0
-- name: 


-- part 1 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=0 top=301 right=331 bottom=205
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Import Microsoft Excelª
----- HyperTalk script -----
on mouseUp
  ask "Which Excel file do you wish to import?" with "?"
  if it is empty then exit mouseUp
  put it into fileName
  open file fileName
  ask "In which stack do want the data?" with "?"
  if it is empty then exit mouseUp
  put it into stackName
  go stackName
  go to last card
  repeat forever
    doMenu "New Card"

    read from file fileName until return
    if it is empty then
      go to first card
      close file fileName
      exit mouseUp
    else put tab into last char of it
    repeat with x=1 to the number of fields
      put char 1 to offset (tab,it) of it into field x
      delete last char of field x
      delete char 1 to offset (tab,it) of it
    end repeat
  end repeat
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=207 top=296 right=334 bottom=244
-- title width / last selected line: 0
-- icon id / first selected line: 7097 / 7097
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 3 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=243 top=296 right=334 bottom=281
-- title width / last selected line: 0
-- icon id / first selected line: 22308 / 22308
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button


-- part 4 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=280 top=296 right=334 bottom=321
-- title width / last selected line: 0
-- icon id / first selected line: 1000 / 1000
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button